home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 October / MACPOWER-1997-10.ISO.7z / MACPOWER-1997-10.ISO / AMUG / INTERNET / HTML Grinder 3.21.sit / HTML Grinder / Grinder Tools / Page Labeler / background_3885.xml next >
Extensible Markup Language  |  1997-07-01  |  4KB  |  44 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>3885</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3279.css" />
  10.     <part>
  11.         <id>5</id>
  12.         <type>button</type>
  13.         <visible> <true /> </visible>
  14.         <reserved5> 0 </reserved5>
  15.         <reserved4> 0 </reserved4>
  16.         <reserved3> 0 </reserved3>
  17.         <reserved2> 0 </reserved2>
  18.         <reserved1> 0 </reserved1>
  19.         <enabled> <true /> </enabled>
  20.         <rect>
  21.             <left>0</left>
  22.             <top>320</top>
  23.             <right>17</right>
  24.             <bottom>336</bottom>
  25.         </rect>
  26.         <style>opaque</style>
  27.         <showName> <false /> </showName>
  28.         <highlight> <false /> </highlight>
  29.         <autoHighlight> <true /> </autoHighlight>
  30.         <sharedHighlight> <true /> </sharedHighlight>
  31.         <family>0</family>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>29540</icon>
  34.         <textAlign>center</textAlign>
  35.         <font>Chicago</font>
  36.         <textSize>12</textSize>
  37.         <textStyle>plain</textStyle>
  38.         <name>Help</name>
  39.         <script>on mouseUpfullhelpend mouseUpon mouseenterhelper "Click here for more help for HTML Grinder."end mouseenter</script>
  40.     </part>
  41.     <name></name>
  42.     <script>on processglobal allfiles,problemfilesput empty into problemfilesif the selectedtext of cd btn "insert" is "URLS" thenif line 2 of cd fld "basefolder" is empty thenbeepanswer "When inserting URLs, you must specify the name of the folder on your hard drive that contains the top level page." &&ﾂｬ"This name will be replaced with the text you specify for the top level folder on your Web server." with "Cancel"exit processelse--check to see its in loadeddocsif line 2 of cd fld "basefolder" is not in allfiles thenbeepanswer "None of the files dragged onto the Grinder are located inside the specified base folder. Reset your base folder or drag some different documents onto the Grinder"ﾂｬwith "Cancel"exit processend ifend ifend ifpass processend processfunction whatToInsert theMode,thefile,thecontentsglobal problemFilesif theMode is "URLs" thenput line 2 of cd fld "basefolder" into theBaseFolderdelete last char of theBaseFolderset the itemdelimiter to ":"put the number of items in theBaseFolder into numFoldersif item 1 to numFolders of theFile = theBaseFolder thendelete item 1 to numFolders of theFileif last item of theFile is in "index.html,default.html" thendelete last item of theFileput ":" after theFileend ifput colonstoSlashes(theFile) into theFileput cd fld "httpfolder" before theFileelseput colonstoSlashes(theFile) into theFileput theFile & return after problemFilesend ifset the itemdelimiter to ","put theFile into theStringelseput extractTitle(theContents) into theStringif theString is empty thenput "(No Title)" into theStringput theFile & return after problemFilesend ifend ifreturn (cd fld prefix & theString & cd fld suffix)end whatToInserton converter thefile,thecontentsglobal totalchangesput the selectedtext of cd btn "insert" into theMode--if theMode is "URLs"then put "<!--Page URL-->" into startTagelse put "<!--Page Title-->" into startTagput startTag into endTagput "End of " after char 4 of endTag--put whatToInsert(theMode,theFile,theContents) into theText--put smartattach(thecontents,startTag,EndTag,theText,the selectedtext of cd btn "Append",cd fld texto) into newcontents--if (newcontents <> thecontents) and ("error:" is not in newcontents)then ReplaceFile thefile,newcontentsend converteron alldoneglobal totalchanges,problemfilesget "URLs or titles were added to" && totalchanges&&"files."put "0" into totalchangesput empty into problemfilessend "alldone it" to homie()end alldoneon resetwheelput "<p><font size=-2>URL: " into cd fld prefixput "</font>" into cd fld suffixput "</body>" into cd fld textoshow cd fld textoput "(not set)" into cd fld "basefolder"put "http://www.yourdomain.com/" into cd fld  "httpfolder"select line 1 of cd btn "Insert"send "mouseup" to cd btn "Insert"select line 3 of cd btn "Append"set the width of cd btn "Append" to 129set the left of cd btn "Append" to 21pass resetwheelend resetwheel</script>
  43. </background>
  44.